﻿Public Partial Class Wfrm_Man_SegElimiSCS
    Inherits System.Web.UI.Page

    Protected Sub Page_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Load
        'txt_nodo.Attributes.Add("onkeypress", "return enter2tab();")
        If Not Page.IsPostBack Then
            Anthem.Manager.Register(Me)

            ViewState("id_task") = 1
            CargarDatos()
        End If

    End Sub

    Sub CargarDatos()
        'SP_GET_TASK_SRM_QRY_FILE        
        Dim EXEC As New DotNetDAL.SQLPersistence(False, "cnn", DotNetDAL.SQLPersistence.Provider.SQLCLIENT)
        Dim Rp As New DotNetResponse.SQLPersistence
        Rp.StoredProcedure = "SP_TASK_GET_SRM_QRY_FILE"
        Rp.AddParametro(ViewState("id_task"))
        EXEC.ExecuteDatatable(Rp)
        If Rp.TieneDatos Then
            txt_aplicacion.Text = Rp.DtTable.Rows(0).Item("S_SRM_APLICACION").ToString
            txt_base_datos.Text = Rp.DtTable.Rows(0).Item("S_SRM_BASE_DATO").ToString
            txt_nodo.Text = Rp.DtTable.Rows(0).Item("S_SRM_NODO").ToString
            txt_archivo_salida.Text = Rp.DtTable.Rows(0).Item("S_NOMBRE_ARCHIVO_SALIDA").ToString
            txt_ip_servidor.Text = Rp.DtTable.Rows(0).Item("S_IP_SERVIDOR").ToString
            txt_usr_servidor.Text = Rp.DtTable.Rows(0).Item("S_USR_SERVIDOR").ToString
            txt_pw_servidor.Text = Rp.DtTable.Rows(0).Item("S_PW_SERVIDOR").ToString
            opt_tipo_servidor.SelectedValue = Rp.DtTable.Rows(0).Item("S_TIPO_DESTINO").ToString
            txt_query.Text = Rp.DtTable.Rows(0).Item("S_QUERY").ToString
            ID_TIPO_TASK.Text = Rp.DtTable.Rows(0).Item("ID_TIPO_TASK").ToString
            txt_ruta_respaldo.Text = Rp.DtTable.Rows(0).Item("S_RUTA_RESPALDO").ToString

            ID_TIPO_TASK.UpdateAfterCallBack = True
            txt_aplicacion.UpdateAfterCallBack = True
            txt_base_datos.UpdateAfterCallBack = True
            txt_nodo.UpdateAfterCallBack = True
            txt_archivo_salida.UpdateAfterCallBack = True
            txt_ip_servidor.UpdateAfterCallBack = True
            txt_usr_servidor.UpdateAfterCallBack = True
            txt_pw_servidor.UpdateAfterCallBack = True
            opt_tipo_servidor.UpdateAfterCallBack = True
            txt_query.UpdateAfterCallBack = True
            txt_ruta_respaldo.UpdateAfterCallBack = True

        End If

        If Rp.Errores Then
            Cls_Mensaje.MsgError(img_mensaje, lbl_mensaje, Panel1, Rp.MensajeError)
        End If


    End Sub
    Sub GrabarDatos()
        Dim EXEC As New DotNetDAL.SQLPersistence(True, "cnn", DotNetDAL.SQLPersistence.Provider.SQLCLIENT)
        Dim Rp As New DotNetResponse.SQLPersistence
        Rp.StoredProcedure = "SP_TASK_SAVE_SRM_QRY_FILE"
        Rp.AddParametro(Val(ID_TIPO_TASK.Text))
        Rp.AddParametro(ViewState("id_task"))
        Rp.AddParametro(txt_aplicacion.Text.Trim)
        Rp.AddParametro(txt_base_datos.Text.Trim)
        Rp.AddParametro(txt_nodo.Text.Trim)
        Rp.AddParametro(txt_archivo_salida.Text.Trim)
        Rp.AddParametro(txt_ip_servidor.Text.Trim)
        Rp.AddParametro(txt_usr_servidor.Text.Trim)
        Rp.AddParametro(txt_pw_servidor.Text.Trim)
        Rp.AddParametro(IIf(opt_tipo_servidor.SelectedValue = "FTP", 1, 0))
        Rp.AddParametro(txt_query.Text.Trim)
        Rp.AddParametro(txt_ruta_respaldo.Text.Trim)

        EXEC.ExecuteScalar(Rp)
        EXEC.Commit()

        If Rp.Errores Then            
            Cls_Mensaje.MsgError(img_mensaje, lbl_mensaje, Panel1, Rp.MensajeError)
        Else
            Cls_Mensaje.MsgInformativo(img_mensaje, lbl_mensaje, Panel1, "Datos Grabados Correctamente")
            ID_TIPO_TASK.Text = Rp.GetScalar
            ID_TIPO_TASK.UpdateAfterCallBack = True
        End If

    End Sub
    Protected Sub Img_Grabar_ElimSeguro_Click(ByVal sender As Object, ByVal e As System.Web.UI.ImageClickEventArgs) Handles Img_Grabar_ElimSeguro.Click
        GrabarDatos()
    End Sub

End Class